home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / demos / databasepro3 / arexx / reverse.rexx
Encoding:
OS/2 REXX Batch file  |  1996-01-19  |  230 b   |  16 lines
  1. /* Dreht den Inhalt des Feldes zwei um */
  2.  
  3. options results
  4. address DATABASE
  5. LEFTTOTAL
  6. weiter = 1
  7. DO i = 1 WHILE weiter = 1
  8.   GETDATA $F2
  9.   PUTDATA $F2 Reverse(result)
  10.   RIGHTONE
  11.   IF RC ~= 0 THEN weiter = 0
  12. END
  13. LEFTTOTAL
  14. address
  15.  
  16.